home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / gfact20e.arj / OILDEMO.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1993-09-12  |  2KB  |  38 lines
  1. @    TIMEDELAY
  2. SECONDS
  3. FRAMES
  4. XWIDTH
  5. LENGTH
  6. OFFSET
  7. GRAPH
  8. XDELAY
  9. NMALLOC
  10.  SUBS AND FUNCTIONS MUST BE DECLARED
  11.  A SET FILE CONTAINS 20 INTEGERS
  12.  SET THE SEGMENT ADDRESS
  13. OILDEM1.SET"d
  14.  SET THE OFFSET ADDRESS AND LOAD
  15.  RESTORE THE DEFAULT BASIC SEGMENT
  16.  THE NUMBER OF FRAMES IN THE SET
  17.  THE WIDTH OF THE FRAMES
  18.  THE LENGTH OF THE FRAMES
  19.  THE OFFSET OF FRAMES IN THE ARRAY
  20.  ARRAY TO HOLD THE GRAPHIC IMAGES 
  21.  SET THE SEGMENT ADDRESS
  22. OILDEM1.GFd
  23.  SET THE OFFSET ADDRESS AND LOAD
  24.  RESTORE THE DEFAULT BASIC SEGMENT
  25.  SET EGA 640 x 350 - 16 COLOR MODE
  26.  SET THE COLOR PALETTE
  27.  INDEX OF THE GRAPHIC TO DISPLAY
  28.  LOOP UNTIL A KEY IS PRESSED
  29.  DISPLAY THE GRAPHIC
  30.  INCREMENT THE INDEX
  31.  KEEP INDEX VARIBLE WITHIN RANGE
  32.  CALL 1/3 SECOND DELAY
  33.  END OF WHILE LOOP
  34.  JUST A FORMALITYO
  35. TIMEDELAY
  36.  VERY SIMPLE TIME BASED DELAYD
  37.  NOT CPU SENSITIVE!A
  38.